5-5  һͱֵSub̡
    Private Sub Swap(ByRef X As Integer, ByRef Y As Integer)
        Dim Temp As Integer
        Temp = X
        X = Y
        Y = Temp
    End Sub
룬ΪʲôҪʹðַݲðֵݻʲô
ٿһγ
    Private Sub SubA(ByRef A1 As Integer, ByRef A2 As Integer, ByVal A3 As Integer)
        A1 = A1 + 1
        A2 = A2 + 1
        A3 = A3 + 1
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y As Integer
        x = 1 : y = 2
        Call SubA(2 * 3, (X), Y)
        Label1.Text = "X=" & x & "  Y=" & y
    End Sub
